home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pcb / ip152.zip / IP.BAT < prev    next >
DOS Batch File  |  1990-05-06  |  2KB  |  72 lines
  1. @echo off
  2.  
  3. :writing
  4. ip /i /e /s /f:I:\FD\MSG\WRITING /p:I:\FD\MSG\WRITING\writing /n:WRITING
  5.  
  6. if errorlevel 10 goto userbreak         ; User break
  7. if errorlevel 6 goto pack1              ; Index has to be packed
  8. if errorlevel 5 goto group              ; Message base locked
  9. if errorlevel 4 goto wrongparams        ; Invalid parameters
  10. if errorlevel 3 goto nospace            ; Insufficient disk space
  11. if errorlevel 2 goto fatal              ; Fatal error
  12. if errorlevel 1 goto group              ; No messages
  13. if errorlevel 0 goto group              ; Messages imported, don't pack
  14.  
  15. :pack1
  16. propack I:\FD\MSG\WRITING\writing 300 /deklrtvn30
  17.  
  18. :group
  19. ip /i /e /s /f:F:\FD\MSG\GROUP /p:F:\FD\MSG\GROUP\group /n:GROUP
  20.  
  21. if errorlevel 10 goto userbreak         ; User break
  22. if errorlevel 6 goto pack2              ; Index has to be packed
  23. if errorlevel 5 goto loni               ; Message base locked
  24. if errorlevel 4 goto wrongparams        ; Invalid parameters
  25. if errorlevel 3 goto nospace            ; Insufficient disk space
  26. if errorlevel 2 goto fatal              ; Fatal error
  27. if errorlevel 1 goto loni               ; No messages
  28. if errorlevel 0 goto loni               ; Messages imported, don't pack
  29.  
  30. :pack2
  31. propack F:\FD\MSG\GROUP\group 200 /deklrtvn15
  32.  
  33. :loni
  34. ip /i /e /s /f:I:\FD\MSG\LONI /p:I:\FD\MSG\LONI\lonix /n:LONI
  35.  
  36. if errorlevel 10 goto userbreak         ; User break
  37. if errorlevel 6 goto pack3              ; Index has to be packed
  38. if errorlevel 5 goto end                ; Message base locked
  39. if errorlevel 4 goto wrongparams        ; Invalid parameters
  40. if errorlevel 3 goto nospace            ; Insufficient disk space
  41. if errorlevel 2 goto fatal              ; Fatal error
  42. if errorlevel 1 goto end                ; No messages
  43. if errorlevel 0 goto end                ; Messages imported, don't pack
  44.  
  45. :pack3
  46. propack I:\FD\MSG\LONI\lonix 300 /deklrtvn20
  47.  
  48. goto end
  49.  
  50. :userbreak
  51. echo BATCH PROCESSING ABORTED BY USER
  52. goto finished
  53.  
  54. :wrongparams
  55. echo == IP CALLED WITH INVALID PARAMETERS! > e:\log\fd.log
  56. goto finished
  57.  
  58. :nospace
  59. echo == INSUFFICIENT DISK SPACE DURING IMPORT/EXPORT > e:\log\fd.log
  60. goto end
  61.  
  62. :fatal
  63. echo == FATAL ERROR IN IMPORT/EXPORT > e:\log\fd.log
  64. goto end
  65.  
  66. :end
  67. echo *** PCBoard import/import complete ***
  68. wipe f:\fd\msg\*.bak /b
  69. wipe i:\fd\msg\*.bak /b
  70.  
  71. :finished
  72.